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SOME  USEFUL  PROCEDURES  FOR  FORTRAN  PROGRAMMING 
ON  THE  ADVANCED  SCIENTIFIC  COMPUTER 


I.  FOREWORD 


The  purpose  of  this  report  is  to  provide  NRL  Research  Staff  mem- 
bers with  a brief,  unified  introduction  to  the  Advanced  Scientific 
Computer  (ASC).  It  is  written  from  the  viewpoint  of  a research  scien- 
tist (the  user)  who  knows  F0RTRAN  programming  but  who  is  not  familiar 
with  the  complexities  of  the  ASC  and  its  Job  Specification  Language 
(JSL).  It  is  intended  to  provide  the  simplest  procedures  necessary  to 
"get  on  the  machine",  run  F0RTRAN  programs,  and  get  answers. 

All  of  the  procedures  in  this  report  have  been  used  successfully 
by  the  authors.  The  programming  consultants  of  the  Research  Computation 
Center  contributed  most  of  the  information  in  this  report.  They  are 
available  to  provide  more  detailed  information  than  is  given  in  this 
summary. 

Obviously,  this  introduction  is  neither  unique  nor  complete;  sug- 
gestions for  improvements  and  additions  are  welcomed  by  the  authors. 

Demand  for  the  first  printing,  issued  as  NRL  Memorandum  Report 
3518,  "An  Introduction  to  F0RTRAN  Programming  for  the  Advanced  Scien- 
tific Computer",  has  been  great  enough  to  justify  a second  edition. 

The  authors  have  taken  this  opportunity  to  make  several  changes  and 
additions,  among  which  are: 

1.  The  title  has  been  changed  to  describe  more  accurately  the  purpose 
of  this  report. 

2.  The  new  system  macro 

/ KEYBOARD 

has  replaced  the  old  macro 

/ MACASG  S$,USERCAT/TERMINAL/MACR0S 
throughout  this  report.  See  Computer  Note  137  for  a detailed 
description  with  all  the  F0SYS  options  listed. 

3.  The  new  load  and  edit  (L0ED)  command  is  used. 

A.  An  example  using  a READ  statement  to  input  data  for  a F0RTRAN 

program  has  been  added. 


Note:  Manuicript  submitted  September  23,  1977. 
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A.  References 

For  more  detailed  information,  the  user  is  referred  to  the 
following  documents  which  are  available  from  the  Research  Computation 
Center  in  Building  A49. 

1.  Scientific  Program  Library  User  Manual  for  the  Naval 
Research  Laboratory;  June,  1976. 

2.  ASC  F0RTRAN  Manual,  Texas  Instruments,  Inc., 

#930055-2;  Jan.,  1976. 

3.  Job  Specification  Reference  Manual,  Texas  Instruments, 
Inc.,  #930038-4;  May,  1976. 

4.  ASC  Keyboard  Concentrator  System  User's  Manual,  Texas 
Instruments,  Inc.,  #934732-2;  May,  1976. 

5.  NRL  Computer  Notes  103  & 110. 

6.  CIFER,  Card  Image  File  Editor,  Texas  Instruments,  Inc., 
#930032-1;  Oct.,  1974. 

B.  Notation  Used  in  This  Report 

A simple  program  is  short  with  few — if  any — short  subroutines. 
It  is  filed  sequentially. 

A complex  program  contains  many  long  subroutines.  It  is  par- 
titioned into  its  various  members  and  filed  as  a library  (PD) 
file. 

In  the  following  programs,  information  written  in  lower  case 
is  to  be  supplied  by  the  user. 

Comments  on  the  programming  procedures  are  written  in  lower 
case  and  are  indented  from  the  actual  program  listing. 

All  listings  begin  in  Column  1 and  spaces — or  lack  of  spaces — 
must  be  typed  as  given. 

The  account  number,  user  code,  and  password  are  established 
with  the  Research  Computation  Center  on  their  application 
forms.  (See  Computer  Note  #107.) 

The  job  name  (usually  the  user's  last  name)  designates  the 
alphabetical  bin  in  which  output  is  placed  at  the  Work  Control 
Center. 

For  convenience,  the  author's  division  (D79)  and  branch  (B40) 
are  used  in  these  programs.  The  user  must  change  these  to  the 
appropriate  numbers. 
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The  FORTRAN  program  name  can  contain  6 alphabetic  characters. 

« 

Catalogue  maintenance  is  described  in  Reference  3,  Chap.  7. 
Also  defined  are  file , node , pathname , version. 

i 

Macro  is  described  in  Reference  3,  Chap.  9. 

1 Alphabetic  "0"  (Oh)  is  written  "0” 

j Numeric  "0"  (Zero)  is  written  "0" 

I Alphabetic  "I"  (Eye)  is  written  "I" 

Numeric  "1"  (One)  is  written  "1" 
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means  Carriage  Return:  implied  if  not  written  at  end  of 
line. 

© means  simultaneously  pressing  Control  key  and  S key: 
this  is  sign-on 

@ means  Control  C:  this  terminates  the  previous  command 

0 means  Control  T and  tabs  six  spaces  for  the  beginning  of  a 
F0RTRAN  command:  implied  for  FORTRAN  commands 

means  Control  X:  this  is  sign-off  and  is  implied  if  not 
written  at  end  of  session 
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II.  ASC  REMOTE  KEYBOARD  TERMINAL  PROCEDURES 


A. 


Simple  Programs 

1.  Sign  on  and  CReate  a Program  (see  Reference  4) 

If  the  ASC  remote  terminal  uses  an  acoustic  coupler, 
then  first  extension  75904  is  dialed  and  when  the  tone 
is  heard  the  telephone  handset  is  put  into  the  acoustic 
coupler. 


0 


computer  responds 
accountno. ,usercode , password 


1 


1 


computer  responds 


jobname  (C^ 
CRjprogramname 


Type  FORTRAN  program 

To  correct  minor  typing  errors,  press  RUBOUT  key 


© 


The  program  is  STored  from  the  local  keyboard  computer 
memory  to  the  ASC  disc. 

ST , programname 
L,A 


Program  is  listed  for  review. 


1 

I 
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2. 


Execute  a Program  and  Print  Output  at  Remote  Terminal 


Wait  for  computer  response  after  typing  these  commands. 

A special  set  of  JSL  macros  is  called  upon  so  that  the 

user  can  interact  with  the  main  ASC  through  the  remote  t 

keyboard  terminal. 

/ KEYB0ARD 

/ FTNLX  lN=programname 

The  ASC  compiles  and  executes  the  F0RTRAN  Program.  A 
special  file  in  the  memory,  FT06F001 , is  used  for  the 
PRINT  output  of  all  F0RTRAN  programs.  The  file  FT06F001 
is  L0aded  from  the  ASC  to  the  local  keyboard  computer 
memory.  (See  Appendix.) 

L0ED,FTO6FOO1 

L,A 

We  List  All  the  file  FT06F001  by  EDiting  it.  FT06F001 
contains  the  output  of  the  program.  Any  programming 
errors  and  diagnostic  messages  will  be  printed  now — if 
compiling  and  link  editing  are  successful. 
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3.  Example:  Calculation  of  Chebyshev  Polynomials 

accountno. jusercode .password  (C^ 

jobname 

CR.CHEBYS 

© PR0GRAM  CHE BY S 

C THIS  PR0GRAM  CALCULATES  THE  CHEBYSHEV 

C P0LYN0MIALS  TN(X)=C0S(N*ARC  C0S  X) 

X=0 . 50 

D0  10  N=l,5 

T=C0S(N*ARC0S(X)) 

PRINT  20,N,X,T 

20  F0RMAT(5X, 'N=' ,I4,2X, 'X= ' , F7 .4 ,2X , 'TN(X)=' ,F10.7) 
10  C0NTINUE 
ST0P 
END 

© 

ST, CHE BY S 
L.A 

Program  is  listed 

/ KEYB0ARD 
/ FTNLX  IN=CHEBYS 
L0ED,FTO6FOO1 
L.A 

Output  is  listed 

@ 

Computer  responds 
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4.  Execute  a Program  and  Print  Output  at  Work  Control  Center 

Follow  procedure  of  paragraph  2.  (See  Appendix.) 

After  / FTNLX  IN=programname  type 

/ F0SYS  SYS.PRT 
/ F(5SYS  FT06F001 

''utput  will  be  printed  at  both  ASC  Work  Control  Center 
and  at  remote  terminal. 

5.  Catalogue  a Program  from  Remote  Terminal  to  ASC. 

(See  Computer  Note  99.) 

Follow  procedure  of  paragraph  1,  then  type. 

PD,MY,USERCAT/D7«>  'd40/usercode 

Note;  MY  is  a synonym  for  the  pathname 
U'SBRCAr/079/B40/usercode 

/ CAT  MY/programname , ACNM=programname 

Follow  procedure  of  paragraph  2,  for  example. 


. .'XC.v, 


I 


6.  Repetitive  Editing  and  Executing  of  Programs 

This  program  gives  the  procedure  for  the  repetitive 
editing  (making  correction,  adding  new  commands,  etc.) 
to  a program  already  catalogued  on  the  ASC. 


© 

accountno. ,usercode , password 
jobname 
/ KEYB0ARD 

PD,MY,USERCAT/D79/B40/usercode 
AS , programname ,MY/programname ,USE=SHR 
L0 , programname 
— ► ED , programname 

Edit  and  correct  program:  The  many  keyboard  commands 
are  given  in  the  appendices  of  Reference  4. 

ST , programname 
L,A 


program  is  listed. 

When  this  procedure  is  used  repetitively,  the  next 
command,  / REL  etc.,  should  be  omitted  for  the  first 
execution  (since  there  is  nothing  to  RELease). 

This  command  must  be  used  on  subsequent  execution  to 
release  the  files  FT06F001 , SYS .0M0D , SYS .LM0D , SYS .PRT , 
so  they  can  be  used  again. 

/ REL  FT06F001 ,SYS.0M0D,SYS.LM0D,SYS.PRT 
/ FTNLX  lN=programname 

This  RElease  command  should  be  omitted  on  the  first 
execut ion . 

RE,Fr06F001 

L0ED,FTO6FOO1 

L,A 

Output  is  printed 

This  procedure  may  be  repeated  until  final  program  is 
obtained . 

Go  back  to  ED , programname  to  repeat  procedure. 

The  final  version  of  the  program  will  now  be  catalogued 
to  RePLace  the  original  Version. 

/ RPLV  MY/programname , ACNM=programname 


! i 
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Enter  Data  from  a Keyboard  Terminal 

After  editing  is  completed,  as  in  paragraph  6,  type 

ST, programname 
CR, INPUT 

type  input  data:  READ  statement  must  be  in  F0RTRAN 
program 


© 

ST, INPUT 

The  command  / FTNLX  IN=programname  of  paragraph  6 is 
changed  to: 

/ FTNLX  IN=programname,DATA=INPUT 
continue  as  before 


Catalog  Status  of  a User's  Program 

© 

accountno. ,usercode , password 
jobname 

CS ,USERCAT/D79/B40/usercode ,LIST=VANS 

a user's  files  catalogued  under  this  pathname  are  listed 


Catalog  Status  of  Other  User's  Program 
LIMIT  USC0=otherusercode 

CS ,USERCAT/D79/B40/otherusercode ,LIST=VANS 


Punch  Deck  of  Cards  for  Program  Stored  on  ASC  Disc 

The  program  to  be  punched  is  assumed  to  have  been  STored 
on  the  ASC  disc,  as  in  Paragraph  2. 

/ F0SYS  programname, TYPE=PUNCH 

cards  will  be  punched  out  at  RCC. 


Example:  Calculation  of  Chebyshev  Polynomials  Using  READ 

Input  Data 


accountno . jusercode , password  (CR 
jobname 


CR.CHEBYD 

(t)  PR0GRAM  CHEBYD 

C THIS  PR0GRAM  CALCULATES  THE  CHEBYSHEV 

C P0LYNOMIALS  TN{X)-C0S(N*ARC  C0S  X) 


D0  30  1=1,3 
READ  5,X 

5 F0RMAT  (5X,F7.4) 

D0  10  N=l,5 
T=C0S(N*ARC0S(X)) 

PRINT  20  N X T 

20  F0RMAT(5X, 'N=' ,I4,2X. 'X= ' , F7 .4 ,2X . 'TN(X)= ' , FIO . 7) 
10  C0NT1NUE 
30  C0NT1NUE 
ST0P 
END 


© 

ST, CHEBYD 
L,A 


Program  is  listed 

CR, INPUT 

0.50  1 

1.0  ^ Formatted  data 

0.25  ) 


© 

ST, INPUT 
/ KEYB0ARD 

/ FTNLX  IN=CHEBYD,DATA=INPUT 

L0ED,FTO6FOO1 

L,A 


Output  is  listed 


© 

Computer  responds 

© 
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© 

accountno. ,usercode, password 
jobname 

Note:  The  security  classification  is  assumed  to  be 
( UNCLASSIFIED. 

/ KEYB0ARD 

SE , terminal sec tors .ASCsec tors , CP time 

Note:  This  command  SEts  aside  extra  disc  memory  space 
for  long,  complex  programs. 

terminalsectors  = no.  of  sectors  for  remote 
terminal 

lower  limit  = 3125  (default  value) 

I upper  limit  = 32767 

ASCsectors  = no.  of  sectors  reserved  on  ASC 
lower  limit  = 5120  (default  value) 
upper  limit  = 128000 

CPtime  = Central  Processor  time  in  seconds 
(default  value  = 60  secs.) 

^ User  may  have  to  wait  for  computer  response 

(SET=0KAY);  simple  programs  can  be  created  now, 
however. 

If  the  program  is  already  catalogued  on  the  ASC,  use 
procedure  of  paragraph  3. 

If  the  program  is  to  be  CReated  and  then  CATalogued, 
use  procedure  of  paragraph  2. 


2. 
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Create  and  Ca'..alog  Programs 

Follow  procedure  of  paragraph  1.  Then  type 
CR.programname 

Type  F0RTKAN  program 

Note:  It  is  good  practice  to  CALL  R$ST0P,  an  ASC 

debugging  aid  (see  Computer  Note  #94)  before  the  first 
executable  F0RTRAN  command. 

© 

ST, programname 

PD,MY,USERCAT/D79/B40/usercode 
/ CAT  MY/programname ,ACNM=programname 

Note:  It  is  good  practice  to  print  out  a Job  Activity 

(JA)  after  commands  ST,  / CAT,  PD,  AS,  etc.  to  see  if 
they  worked.  See  Reference  4. 

Now  follow  procedure  of  paragraph  4. 


3.  List  Catalogued  F0RTRAN  Program 

Follow  procedure  of  paragraph  1.  Then  type 

PD,MY,USERCAT/D79/B40/usercode 
AS, PDFILE$$ , MY/ programname ,USE=SHR 
L0ED , programname 

Note:  Here  we  are  using  some  complex — but  very 

useful — catalog  maintenance  procedures;  see  Reference  3, 
Chap.  7 or  the  RCC  consultants. 

Here  we  let  programname  = membername  of  file. 

Also  note  that  PDFII,E$$  is  the  only  name  that  can  be 
used  for  Partitioned  Direct  Secondary  (PDS)  files. 

L,A 


program  is  listed 
ST, programname 


Now  follow  procedure  of  paragraph  4. 
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4.  JSL  Macro  for  Repetitive  Executing  and  Cataloguing 

This  procedure  is  typed  once  only.  See  Reference  6. 

A set  of  JSL  conunands,  which  are  used  repeatedly,  are 
combined  into  the  macro  we  call  JSL.  After  procedures 
of  paragraphs  B.I  and  B.2  or_B.l  and  B.2  type 

CR.JSL 

/ REL  FT06F001 ,SYS.0M0D,SYS.LM0D,SYS.PRT. 

/ CIFER 

«C0PY  programname , PDFILE$$/programname 
«MERGE  PDFILE$$,SEQN 
/ FD  FT06F001 ,BAND=4/12/4 
/ FTNLX  IN=SEQN,FTN0PT=(K) ,FTVERS=FX 

© 

ST, JSL 

Note:  Either  the  FX  compiler  (FTVERS=FX)  or  the  NX  com- 
piler can  be  used  here.  The  authors  have  found  the  FX 
compiler  to  be  more  convenient  for  problems  requiring 
complex  arithmetic.  The  optimizing  compiler,  NX,  is 
useful  for  large  production  runs. 

5.  Repetitive  Editing,  Executing,  and  Cataloguing 

The  procedure  of  paragraph  4 need  only  be  performed 
once.  Then  type 

— ^ AP,JSL 

Omit  this  RElease  command  for  the  first  execution. 

RE,FT06F001 

L0ED,FTO6FOO1 

L.A 

Output  is  listed 

ED , programname 
L,A 

Program  is  listed. 

Modifications  may  be  made. 

ST, programname 

Go  back  to  AP,JSL  and  repeat  until  final  program  is 
obtained. 
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III.  ASC  PUNCHED  CARDS  FOR  COMPLEX  PROGRAMS 

Execute  a F0RTRAN  Program  on  ASC 

/ J0B  jobname.accountno. ,usercode,0PT»(C,D,R) 

/ FTNLX  0PT=(I) ,FTN0PT=(K) 

F0RTRAN  source  deck 

/ E0J 


Catalog  Complex  Program  on  ASC 

/ J0B  same  as  above 
/ PD,MY,USERCAT/D79/B40/usercode 
/ CAIN  MY/programname 
/ CIFER 

«SPLIT  *,S0URCE 
source  deck 

/ CATV  MY/programname, ACNM=S0URCE 
/ E0J 


Punch  a Duplicate  Deck  of  Cards 

/ J0B  same  as  above 
/ F0SYS  SYS.IN,TYPE=PUNCH,C0PIES=n 

Deck  to  be  punched  (less  than  3200  cards) 

Note:  One  copy  is  punched  unless  C0PIES  = n is  added 
after  PUNCH;  n = no.  of  copies 


/ E0J 


List  Deck  of  Cards 

/ J0B  same  as  above 
/ F0SYS  SYS. IN 

Deck  to  be  listed  (less  than  3200  cards) 

/ E0J 


15 


5.  Convert  CDC  F0RTRAN  Deck  to  ASC  Format 

/ J0B  same  as  above 
/ PD  DICK,USERCAT/D42/B2O/MCGIR1/L0AD 
/ ASG  SYS. LM0D, DICK, USE=SHR 
/ FXQT  0PT=(Z,A),CPTIME=3OOO 

10  1 1 

Deck  to  be  converted 

E 

/ REL  SYS.LM0D 

/ FTN  FTN0PT=(X,M) ,IN=FT07F001 ,FTVERS=FX 
/ F0SYS  FT07F001 ,TYPE=PUNCH 
/ LNK 

/ FXQT  0PT=(Z,A) ,CPTIME=3000 
Data  cards,  if  any 

/ E0J 


6.  List  User's  Catalogued  Files 

/ J0B  same  as  before 
/ CATLST  CP0PT=(A,B) 

7USERCAT  usercode  4 

USERCAT  D79  B40  usercode 

/ E0J 


7.  Enter  Data  in  F0RTRAN  Program 

/ J0B  same  as  before 
/ FTNLX  0PT=(I) ,DATA=1NPUT 

F0RTRAN  Source  deck  (READ  Statement) 

/ START  ACNM= INPUT 


Data  Cards 

/ ST0P 
/ E0J 
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V 


IV.  Appendix:  Block  Diagram  of  FTNLX  Macro 
Rectangular  blocks  are  files. 
Elliptical  blocks  are  machine  functions. 
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